#!/usr/bin/env perl
use strict;
use warnings;

open(FH,"<D:/regular.txt") or die "can not open $!";

while(my $line = <FH>){
	chomp($line);
	my @cols = split(/\t/,$line);
	my $len = scalar(@cols);
	my $suvs = join(",",@cols[2..$len - 1]);
	printf("%s\t%s\t%s\n",$cols[0],$cols[1],$suvs);
}
close(FH);
